home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 54
/
054.d81
/
bits ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
68 lines
5 a=a+1
10 ifa=1thenload"bits.o",8,1
12 ifa=2thenload"bits.txt",8,1
39 :
41 gosub 600
50 clr:dima(300):poke53280,.:poke53281,.
55 sys52650
99 :
100 print"[147]"tab(10)"horizontal scroll demo"
101 printtab(15)"by jim row"
103 print"[154] please enter the text that you wish "
104 print" to be scrolled now. 254 chars max!"
105 print"[164]";:x=1
110 geta$:ifa$=""then110
120 ifa$=chr$(13)thenprint"[157] ":goto 200
121 ifa$=chr$(20)thenprint"[157] [157][157][164]";:x=x-1:goto110
123 ifa$="[147]" then 100
125 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]" then 110
130 ifx=256 then 110
140 x=x+1
175 print"[157]"a$"[164]";
190 goto 110
191 :
192 :
200 sys52650:nu=x:fory=1tonu-1:poke52949+y,peek(1023+y):a(y)=peek(1023+y):next
201 poke52949+nu,.:gosub600:poke52933,255:sys52650
205 print"[147] do you want to save the text?"
206 geta$:ifa$=""then206
207 ifa$="y"ora$="[217]"then210
208 ifa$="n"ora$="[206]"thensys52650:goto360
209 goto 206
210 :
211 sys52650: rem turn off
212 print"[147] enter the file name you want "
213 print" to save the text as.":print" name :";
214 print"[164][157]";:x=1:nm$=""
215 geta$:ifa$=""then215
220 ifa$=chr$(20)andx>1thenprint" [157][157][164][157]";:nm$=left$(nm$,len(nm$)-1):x=x-1:goto 215
225 ifa$=chr$(20)then 215
229 ifa$=chr$(13) andx=1 then sys52650:goto 205
230 ifa$=chr$(13) then 290
235 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"then215
236 ifa$="?"ora$="*"ora$="," then 215
247 ifx=16 then 215
250 x=x+1:
255 nm$=nm$+a$:printa$"[164][157]";
260 goto 215
290 :
300 print"[147] please wait while saving"
302 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er:close15
304 ifer<>63 then 350
310 print"[147] file already exists! press any key."
313 geta$:ifa$=""then313
320 goto 212
350 open2,8,2,nm$+",p,w"
351 print#2,chr$(214)+chr$(206);
352 fory=1tonu:print#2,chr$(a(y));:next:print#2,chr$(0);:close2
360 print"[147]do you want to create another text file?"
361 geta$:ifa$=""then361
362 ifa$="y"ora$="[217]"then a=2:goto12
370 ifa$="n"ora$="[206]"then 400
371 goto 361
400 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
401 ifer<>63then print"[147]":end
403 load"hello connect",8,1
599 rem initilize screen
600 forx=960to1001:pokex,32:next:poke52933,255:return